
load.loadFromFile <- function(filename){
	return(read.csv(filename, header = TRUE, sep = " ", quote="\"", dec=".", fill = TRUE, comment.char="")
}